home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_104_Window < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.5 KB  |  67 lines
  1. { %filename% -- window methods }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    This module overrides the AppMaker-generated code in z%WindName%.%        %}
  5. {    It provides a place for you to add your own code and still be able to    }
  6. {    generate code for new changes to the user interface.  This module will    }
  7. {    not be regenerated by AppMaker unless you delete it.  Its superclass,    }
  8. {    z%WindName%, may be regenerated to handle user interface changes%        %}
  9. {    without losing your hand-coded changes to this module.                    }
  10.  
  11. Unit %unitname%;
  12. Interface
  13.  
  14. Uses
  15.     TCL,
  16.     AMCL,
  17.     %AppName%Intf;
  18.     
  19. {----------}
  20. Implementation
  21.  
  22. %for each item gen defineItem%
  23.  
  24. {----------}
  25. Procedure C%WindName%.I%WindName%    (aSupervisor:        CDirector;
  26.                                      theData:            C%appname%Data);
  27. Begin
  28.     itsData := theData;
  29.     inherited IZ%WindName% (aSupervisor);
  30.     gDecorator.StaggerWindow (self);
  31.  
  32.     {any additional initialization for your window}
  33.  
  34. End; {I%WindName%}
  35.  
  36. %for each item gen auxiliaryMethod%
  37. {----------}
  38. Procedure C%WindName%.UpdateMenus;
  39. Begin
  40.     inherited UpdateMenus;
  41.  
  42. End; {UpdateMenus}
  43.  
  44. {----------}
  45. Procedure C%WindName%.DoCommand    (theCommand:     longint);
  46. Begin
  47.     case theCommand of
  48.         0:    ;
  49.         %for each item gen DoCommand%
  50.  
  51.         otherwise
  52.             inherited DoCommand (theCommand);
  53.     end; {case}
  54. End; {DoCommand}
  55.  
  56. {----------}
  57. Procedure C%WindName%.ProviderChanged%    %(aProvider:    CCollaborator;
  58.                                          reason:        longint;
  59.                                          info:            univ Ptr);
  60.  
  61. Begin
  62.     %for each item gen ProviderChanged%
  63.  
  64. End; {ProviderChanged}
  65.  
  66. End. {%unitname%}
  67.